home *** CD-ROM | disk | FTP | other *** search
/ Dark Star 13 / Dark_Star_13_1996-09_Willow_de_Side_B.d64 / demo deutschchar (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  103 lines
  1. 10 ifa=0thena=1:load"zeichensatz",8,1
  2. 11 :
  3. 20 poke53281,0:poke53280,0:print"[147]";chr$(8)
  4. 21 :
  5. 22 rem              hintergrund schwarz
  6. 23 rem                shift/cbm sperren
  7. 24 :
  8. 25 poke56576,0
  9. 26 :
  10. 27 rem                       vic-bank 3
  11. 29 :
  12. 30 poke53272,(peek(53272)and15)or32:poke648,200
  13. 31 :
  14. 32 rem              bildschirm ab 51200
  15. 33 :
  16. 40 poke53272,(peek(53272)and240)or0
  17. 41 :
  18. 42 rem             zeichensatz ab 49152
  19. 43 :
  20. 50 bl$="[129][165][146][157]":rem          cursorform
  21. 60 v$="":rem          variable fuer get
  22. 70 vv=0:rem      hilfsvariable fuer get
  23. 80 eg$="":rem             eingabestring
  24. 90 l=0:rem         laenge eingabestring
  25. 100 ps=0:rem hilfsvariable fuer eingabe
  26. 110 p$="":rem               druckstring
  27. 120 zp=0:rem  hilfsvariable zum drucken
  28. 121 :
  29. 123 :
  30. 130 goto1000
  31. 131 :
  32. 132 :
  33. 133 rem                     subroutinen
  34. 134 :
  35. 135 :
  36. 136 rem                          get v$
  37. 137 :
  38. 140 getv$:ifv$=""then140
  39. 150 return
  40. 151 :
  41. 152 :
  42. 153 rem                         drucken
  43. 154 :
  44. 160 forzp=1tolen(p$)
  45. 170 print#4,chr$(peek(52200+asc(mid$(p$,zp,1))));
  46. 180 nextzp
  47. 190 return
  48. 191 :
  49. 193 rem                  eingabe string
  50. 194 :
  51. 200 eg$="":ps=0
  52. 210 ifps=lthen230
  53. 220 printbl$;
  54. 230 gosub140
  55. 240 ifv$="_"theneg$="":return
  56. 250 vv=asc(v$)
  57. 260 ifvv=32andps<lthenprintv$;:eg$=eg$+v$:ps=ps+1
  58. 270 ifvv>37andvv<95andps<lthenprintv$;:eg$=eg$+v$:ps=ps+1
  59. 280 ifvv>185andvv<219andps<lthenprintv$;:eg$=eg$+v$:ps=ps+1
  60. 290 ifvv=20andps<>0andps<>lthenprint" [157][157]";:eg$=left$(eg$,len(eg$)-1):ps=ps-1
  61. 295 ifvv=20andps=lthenprint"-[157][157]";:eg$=left$(eg$,len(eg$)-1):ps=ps-1
  62. 300 ifvv<>13then210
  63. 310 ifps=0then210
  64. 320 iflen(eg$)=lthenreturn
  65. 330 print" ":return
  66. 331 :
  67. 332 :
  68. 333 rem              drucker einstellen
  69. 334 :
  70. 340 print#4,chr$(27);"@";:
  71. 341 :
  72. 342 rem          drucker initialisieren
  73. 343 :
  74. 350 print#4,chr$(27);"r";chr$(2);:
  75. 351 :
  76. 352 rem      druckerzeichensatz deutsch
  77. 353 :
  78. 360 return
  79. 996 :
  80. 997 :
  81. 998 rem                   hauptprogramm
  82. 999 :
  83. 1000 print"[147]"
  84. 1010 print"[194]itte [196]rucker einschalten
  85. 1020 [153]"und (NULL)aste dr@cken
  86. 1030 poke198,0:wait198,1
  87. 1040 open4,4:gosub340
  88. 1042 rem       gosub drucker einstellen
  89. 1043 :
  90. 1050 print"[147]";:printspc(6)"[194]itte eine [197]ingabe
  91. 1060 [153][166]6)"-                    -"
  92. 1070 [151]211,7:[151]214,12:[158]58732
  93. 1075 [151]198,0
  94. 1080 l[178]20:[141]200
  95. 1082 [143]                  gosub eingabe
  96. 1083 :
  97. 1090 [139]v$[178]"_"[167]eg$[178]"":[160]4:[128]
  98. 1100 p$[178]eg$
  99. 1110 [141]160
  100. 1112 [143]                  gosub drucken
  101. 1113 :
  102. 1120 [137]1050
  103.